Option Explicit
Sub F_Sample008()
    'Microsoft Forms 2.0 Object Library ]wޥζ
    'Microsoft Scripting Runtime ]wޥζ
    'ոF_Data.csv 
    Dim myFileName As String
    Dim myDataobj As DataObject
    Dim myFSO     As Scripting.FileSystemObject
    Dim myTst     As Scripting.TextStream
    Dim myStr     As String
    Dim myDataAr  As Variant
    myFileName = "F_Data.csv"				'ŪJɮ
    Set myFSO = New Scripting.FileSystemObject
    Set myTst = myFSO.OpenTextFile(ThisWorkbook.Path & "\" & myFileName)
    With myTst
        Do While .AtEndOfStream = False
            myStr = myStr & Replace(.ReadLine, ",", vbTab) & vbCrLf
        Loop
    End With
    Set myTst = Nothing						'
    Set myFSO = Nothing
    Set myDataobj = New DataObject
    myDataobj.SetText myStr
    myDataobj.PutInClipboard
    Worksheets.Add.Paste
    Set myDataobj = Nothing					'
End Sub
